home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / blks free-1541 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  212 b   |  11 lines
  1. 5 rem* read blocks free-1541
  2. 6 :
  3. 10 lo=250: hi=2: rem $02fa-$02fd
  4. 20 z$=chr$(0)
  5. 30 open 15,8,15
  6. 40 print#15,"m-r"chr$(lo)chr$(hi)chr$(4)
  7. 50 get#15,l0$,l1$,h0$,h1$
  8. 60 f0=asc(l0$+z$)+256*asc(h0$+z$)
  9. 70 print"blocks free:"f0
  10. 80 close 15
  11.